home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / AUTOHUPE.LST < prev    next >
File List  |  1989-06-01  |  430b  |  27 lines
  1. ' Effekt Hupe
  2. @init
  3. ' Werteinstellung
  4. ru%=120
  5. @rausch
  6. SOUND 250,15,255,0
  7. END
  8. PROCEDURE init
  9.   DIM wert&(255)
  10. RETURN
  11. PROCEDURE rausch
  12.   RANDOMIZE TIMER
  13.   FOR i%=1 TO 63
  14.     wert&(i%)=2*i%-INT(RND*ru%)
  15.   NEXT i%
  16.   FOR i%=64 TO 127
  17.     wert&(i%)=127-i%-INT(RND*ru%)
  18.   NEXT i%
  19.   FOR i%=0 TO 63
  20.     wert&(i%+127)=0-i%+INT(RND*ru%)
  21.   NEXT i%
  22.   FOR i%=0 TO 63
  23.     wert&(i%+191)=-127+(2*i%)+INT(RND*ru%)
  24.   NEXT i%
  25.   WAVE 0,wert&()
  26. RETURN
  27.